home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / tests / Len.T < prev   
Encoding:
Text File  |  1994-08-02  |  382 b   |  15 lines
  1. .geometry "version 0.1";
  2. l1 = .len.f(1);
  3. ln = .len.f(7);
  4. pi2 = .len.f(6.28319);
  5. lnth = .len.divide(l1, ln);
  6. ang = .len.times(pi2, lnth);
  7. v0 = .free(0.0140845, -0.0309859, .L0, "1");
  8. v1 = .free(0.521127, -0.0225352, .L0, "2");
  9. v2 = .v.avv(ang, v1, v0);
  10. v3 = .v.avv(ang, v2, v0);
  11. v4 = .v.avv(ang, v3, v0);
  12. v5 = .v.avv(ang, v4, v0);
  13. v6 = .v.avv(ang, v5, v0);
  14. v7 = .v.avv(ang, v6, v0);
  15.